home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
tjockdem.arc
/
DEMO4.ARC
/
MISCDEM1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-02-03
|
1KB
|
35 lines
Program MiscTTT5_Demo_1;
{illustrates the use of the date features in MiscTTT5}
Uses CRT, DOS, FastTTT5, READTTT5, STRNTTT5, MISCTTT5;
var
DF:byte;
DateFormat: byte;
DaysInFuture : word;
Msg : string;
begin
ClrScr;
WriteCenter(1,yellow,black,'QUICK DATE DEMO');
Read_Select(5,5,'Which date format do you want to use? ',
'^MMDDYY MMDDYYYY DDMMYY DDMMYYYY',DF);
Case DF of
1 : DateFormat := MMDDYY;
2 : DateFormat := MMDDYYYY;
3 : DateFormat := DDMMYY;
4 : DateFormat := DDMMYYYY;
end; {Case};
WriteAT(5,10,white,black,'Today''s date is '+
Julian_to_Date(Today_In_Julian,DateFormat));
Read_Word(5,12,4,'Enter a number between 1 and 5,000 ',0,DaysInFuture,1,5000);
WriteAT(5,14,white,black,'In '+Int_to_Str(DaysInFuture)
+ ' days it will be '
+ Julian_to_date(Today_in_Julian+DaysInFuture,DateFormat));
WriteAT(1,20,white,black,'Run DemoTTT.exe for the main demo program');
WriteAT(1,21,white,black,'TechnoJock''s Turbo Toolkit v5.0');
GotoXY(1,22);
end.